﻿Public Partial Class Wfrm_Crear_Modificar_Seccion_Pruebas
    Inherits Wfrm_Master

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            ViewState("usuario") = Session("usuario")           
            ViewState("id_prueba") = Session("id_prueba")
            txt_id_prueba.Text = Session("id_prueba")

            Cargar_Puntos()

            Cargar_Seccion()

        End If
    End Sub
    Sub Cargar_Puntos()
        For i = 1 To 100
            Dim item As New ListItem
            item.Value = i
            item.Text = i
            cmb_puntos.Items.Add(item)
            cmb_puntos.UpdateAfterCallBack = True
        Next


    End Sub
    Sub Cargar_Seccion()
        Dim rp As New DotNetResponse.SQLPersistence
        CL_SECCION.Get_Seccion(rp, ViewState("id_prueba"), ViewState("usuario"))
        Grid_Secciones.DataSource = rp.DtTable
        Grid_Secciones.DataBind()
        Grid_Secciones.UpdateAfterCallBack = True
    End Sub
   
    Protected Sub Btn_continuar_Seccion_Click(ByVal sender As Object, ByVal e As EventArgs) ' Handles Btn_continuar_Seccion.Click
        Session("secciones") = ViewState("secciones")
        Session("id_prueba") = ViewState("id_prueba")
      
        Response.Redirect("WFrm_Crear_Modificar_Pregunta.aspx", True)


    End Sub

    Protected Sub Btn_Agregar_Seccion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Agregar_Seccion.Click
        If txt_titulo_seccion.Text.Length = 0 Then
            MsgInformativo("Ingrese Título de la Sección")
            Exit Sub
        End If

        MsgConfirm("¿Confirma grabar sección?", "Save_Seccion")



    End Sub

    <Anthem.Method()> _
    Sub Save_Seccion()
        Dim rp As New DotNetResponse.SQLPersistence
        CL_SECCION.SAVE_SECCION(rp, Val(txt_id_seccion.Text), Val(ViewState("id_prueba")), txt_titulo_seccion.Text.Trim, cmb_puntos.Text, ViewState("usuario"), txt_Observacion_prueba0.Text.Trim, cmb_vigencia.SelectedValue)
        If Not rp.Errores Then
            MsgInformativo("Sección Grabada ")
            Cargar_Seccion()
        Else
            MsgError(rp.MensajeError)
        End If
        Cargar_Seccion()


    End Sub

    Protected Sub Btn_Volver_Seccion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Volver_Seccion.Click

        Session("secciones") = ViewState("secciones")
        Session("id_prueba") = ViewState("id_prueba")
        Session("nombre_prueba") = ViewState("nombre_prueba")
        Session("txt_codigo_prueba") = ViewState("txt_codigo_prueba")
        Session("txt_Observacion_prueba") = ViewState("txt_Observacion_prueba")

        
    End Sub

    <Anthem.Method()> _
    Public Function Eliminar_Seccion(ByVal Id_Seccion As String)

        If Session("seccion_id") Is Nothing Then
            Return Nothing
        End If

        Dim rp As New DotNetResponse.SQLPersistence
        ' DalAppTestBuilder.TB_PRUEBA_DISENO_SECCION.ELIMINA_PRUEBA_DISENNO_SECCION(rp, Nothing, Session("seccion_id"), ViewState("usuario"))


        If Not rp.Errores Then

            MsgInformativo("Sección Eliminada")

            Cargar_Seccion()

            Return True

        Else
            MsgError("Imposible Eliminar Sección")
            Return False
        End If


    End Function

    Protected Sub img_eliminar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Session("seccion_id") = DirectCast(sender.parent.parent, System.Web.UI.WebControls.DataGridItem).Cells(0).Text

        MsgConfirm("¿Está Seguro (a) de Eliminar la Sección?", "function(r){ if(r){Anthem_InvokePageMethod('Eliminar_Seccion',[" & Session("seccion_id") & "],function(result) {});} }")
    End Sub


    Protected Sub lnk_editar_Click(ByVal sender As Object, ByVal e As EventArgs)
        'cmb_Seccion.SelectedValue = DirectCast(sender.parent.parent, DataGridItem).Cells(2).Text
        txt_titulo_seccion.Text = DirectCast(sender.parent.parent, DataGridItem).Cells(3).Text
        txt_Observacion_prueba0.Text = DirectCast(sender.parent.parent, DataGridItem).Cells(6).Text
        cmb_puntos.SelectedValue = DirectCast(sender.parent.parent, DataGridItem).Cells(5).Text
        ViewState("id_seccion") = DirectCast(sender.parent.parent, DataGridItem).Cells(0).Text

        'cmb_Seccion.UpdateAfterCallBack = True
        txt_titulo_seccion.UpdateAfterCallBack = True
        txt_Observacion_prueba0.UpdateAfterCallBack = True
        cmb_puntos.UpdateAfterCallBack = True        

    End Sub

    Protected Sub img_up_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)

    End Sub

    Protected Sub img_down_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)

    End Sub
End Class